home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DJGPP
/
DJLSR111.ZIP
/
libsrc
/
c
/
io
/
fwrite.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-06-28
|
1KB
|
56 lines
/* This is file FWRITE.C */
/* This file may have been modified by DJ Delorie (Jan 1991). If so,
** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
** Rochester NH, 03867-2954, USA.
*/
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)fwrite.c 5.2 (Berkeley) 3/9/86";
#endif LIBC_SCCS and not lint
#include <stdio.h>
fwrite(ptr, size, count, iop)
register const void *ptr;
int size, count;
register FILE *iop;
{
register int s;
s = size * count;
if (iop->_flag & _IOLBF)
while (s > 0) {
if (--iop->_cnt > -iop->_bufsiz && *(char *)ptr != '\n')
*iop->_ptr++ = *(char *)ptr++;
else if (_flsbuf(*(unsigned char *)ptr++, iop) == EOF)
break;
s--;
}
else while (s > 0) {
if (iop->_cnt < s) {
if (iop->_cnt > 0) {
bcopy(ptr, iop->_ptr, iop->_cnt);
ptr += iop->_cnt;
iop->_ptr += iop->_cnt;
s -= iop->_cnt;
}
if (_flsbuf(*(unsigned char *)ptr++, iop) == EOF)
break;
s--;
}
if (iop->_cnt >= s) {
bcopy(ptr, iop->_ptr, s);
iop->_ptr += s;
iop->_cnt -= s;
return (count);
}
}
return (size != 0 ? count - ((s + size - 1) / size) : 0);
}